#lang racket

;这个(p)会导致程序卡死
(define (p) (p))

(define (test x y)
  (if (= x 0)
      0
      y))

;应用序求值，求值参数而后应用
;正则序求值，完全展开而后规约
;此处导致了racket卡死，所以 racket是应用序求值
;(test 0 (p))